home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr37 / blt300.zip / EDIT.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-01-01  |  2KB  |  168 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     String   STRING001
  21.     String   STRING002
  22.     String   STRING003
  23.     String   STRING004
  24.     String   STRING005
  25.     String   STRING006
  26.  
  27. ;------------------------------------------------------------------------------
  28.  
  29.     STRING003 = Chr(7)
  30.     STRING004 = Chr(13)
  31.     StartDisp 1
  32.     Delete PPEPath() + "TEMP.!!!"
  33.     Delete PPEPath() + "TEMP.@@@"
  34.     FOpen 1, PPEPath() + "TEMP.!!!", 2, 0
  35.     FOpen 2, PPEPath() + "TEMP.@@@", 2, 0
  36.     Cls
  37.     PrintLn "Enter a Subject for your Bulletin (No more then 20 characters)"
  38.     Print "Subject: "
  39.     INTEGER001 = 1
  40.     While ((STRING006 <> Chr(13)) && (Len(STRING005) < 20)) Do
  41.         Gosub LABEL002
  42.         Print STRING006
  43.         STRING005 = STRING005 + STRING006
  44.     EndWhile
  45.     FPut 2, STRING005
  46.     Gosub LABEL001
  47.     AnsiPos 1, 2
  48.     Gosub LABEL002
  49.     While (STRING006 <> Chr(27)) Do
  50.         Gosub LABEL003
  51.         If (STRING006 == Chr(13)) Then
  52.             Gosub LABEL003
  53.             AnsiPos 1, STRING002 + 1
  54.             Gosub LABEL002
  55.             FPutLn 1, ""
  56.             Continue
  57.         Endif
  58.         If (((STRING006 == Chr(8)) && (STRING001 == "1")) && (STRING002 <> 2)) Then
  59.             Gosub LABEL003
  60.             AnsiPos 78, STRING002 - 1
  61.             FSeek 1, -1, 1
  62.             FPut 1, " "
  63.             FSeek 1, -1, 1
  64.             Continue
  65.         Endif
  66.         If ((STRING006 == Chr(8)) && (STRING001 <> "1")) Then
  67.             Backup 1
  68.             Print " "
  69.             Backup 1
  70.             FSeek 1, -1, 1
  71.             FPut 1, " "
  72.             FSeek 1, -1, 1
  73.             Gosub LABEL002
  74.             Continue
  75.         Endif
  76.         Gosub LABEL003
  77.         If (STRING001 == 78) Then
  78.             AnsiPos 1, STRING002 + 1
  79.             Print STRING006
  80.             FPut 1, STRING006
  81.             Gosub LABEL002
  82.         Endif
  83.         Gosub LABEL003
  84.         If (Len(STRING006) == 1) Then
  85.             Print STRING006
  86.             FPut 1, STRING006
  87.         Endif
  88.         Gosub LABEL002
  89.     EndWhile
  90.     FClose 1
  91.     End
  92.     :LABEL001
  93.     Cls
  94.     DispFile PPEPath() + "TEMP.!!!", 0
  95.     PrintLn "Enter your Bulletin here. Press (ESC) when you are done."
  96.     Return
  97.     :LABEL002
  98.     STRING006 = "UH"
  99.     While (STRING006 == "UH") Do
  100.         STRING006 = Inkey()
  101.     EndWhile
  102.     Return
  103.     :LABEL003
  104.     STRING001 = GetX()
  105.     STRING002 = GetY()
  106.     Return
  107.  
  108. ;------------------------------------------------------------------------------
  109. ;
  110. ; Usage report (before postprocessing)
  111. ;
  112. ; ■ Statements used :
  113. ;
  114. ;    1       End
  115. ;    2       Cls
  116. ;    14      Goto 
  117. ;    8       Let 
  118. ;    5       Print 
  119. ;    2       PrintLn 
  120. ;    8       If 
  121. ;    1       DispFile 
  122. ;    2       FOpen 
  123. ;    1       FClose 
  124. ;    5       FPut 
  125. ;    1       FPutLn 
  126. ;    1       StartDisp 
  127. ;    2       Delete 
  128. ;    12      Gosub 
  129. ;    3       Return
  130. ;    4       AnsiPos 
  131. ;    2       Backup 
  132. ;    4       FSeek 
  133. ;
  134. ;
  135. ; ■ Functions used :
  136. ;
  137. ;    4       -
  138. ;    8       +
  139. ;    1       -
  140. ;    7       ==
  141. ;    4       <>
  142. ;    1       <
  143. ;    8       !
  144. ;    4       &&
  145. ;    2       Len(
  146. ;    7       Chr()
  147. ;    1       Inkey()
  148. ;    5       PPEPath()
  149. ;    1       GetX()
  150. ;    1       GetY()
  151. ;
  152. ;------------------------------------------------------------------------------
  153. ;
  154. ; Analysis flags : No flag
  155. ;
  156. ;------------------------------------------------------------------------------
  157. ;
  158. ; Postprocessing report
  159. ;
  160. ;    0       For/Next
  161. ;    3       While/EndWhile
  162. ;    5       If/Then or If/Then/Else
  163. ;    0       Select Case
  164. ;
  165. ;------------------------------------------------------------------------------
  166. ;                 AEGiS Corp - Break the routines, code against the machines!
  167. ;------------------------------------------------------------------------------
  168.